!name: gardoor_3   April 1991.
! improved:03.06.92

roty 180
addx  -a
let m=.05
let k=.05
let g=int(c)
let l=int(d)
addz -e*4/9
brick a,b,e*3/5
addz e*3/5
addx 0.05

for i=1 to g
addy (i-1)*(b-0.05*(g+1))/g+0.05*i
brick a-.1,(b-0.05*(g+1))/g,e/5
addy 0.05
addz e/5
for j=1 to l
addx (j-1)*(a-0.1-0.05*(l+1))/l+0.05*j
brick (a-0.1-0.05*(l+1))/l,(b-0.05*(g+1))/g-0.1,e/5
del 1
next j
del 3
next i


end
